(rmail-convert-to-babyl-format): Delete 1 char

if we see a newline instead of what we expect.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 036efc4564c44caad2802f3bf65fdd2839e28f04..e11d40a70974aec396288ce1d82dfd29780564e8 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -797,9 +797,11 @@ argument causes us to read a file name and use that file as the inbox."
               (insert ?\^_)
               (narrow-to-region (point) (point-max)))
              ;;
-             ;;This is a kludge, in case we're wrong about mmdf not
-             ;;allowing anything in between.  If it loses, we'll have
-             ;;to look for something else
+             ;; This kludge is because some versions of sendmail.el
+             ;; insert an extra newline at the beginning that shouldn't
+             ;; be there.  sendmail.el has been fixed, but old versions
+             ;; may still be in use.  -- rms, 7 May 1993.
+             ((eolp) (delete-char 1))
              (t (error "Cannot convert to babyl format")))))
     count))